clear 

use "Data.dta"

generate t=td(17feb2011)+_n-1 
format t %td 
tsset t

*********************
*** Twitter TOT  ****
*********************

quietly var LibRebTOLibGov LibGovTOLibReb USGovTOLibGov USGovTOLibReb TwitterTOT,lags(1/4)
irf create order1,step(4) set(myirf41) replace
irf table oirf, irf(order1) impulse(TwitterTOT) response(USGovTOLibGov USGovTOLibReb)
irf table oirf, irf(order1) impulse(TwitterTOT) response(USGovTOLibGov USGovTOLibReb) level(90)

******************
*** Twitter 1  ****
******************

quietly var LibRebTOLibGov LibGovTOLibReb USGovTOLibGov USGovTOLibReb Twitter1,lags(1/4)
irf create order1,step(4) set(myirf41) replace
irf table oirf, irf(order1) impulse(Twitter1) response(USGovTOLibGov USGovTOLibReb)
irf table oirf, irf(order1) impulse(Twitter1) response(USGovTOLibGov USGovTOLibReb) level(90)

*****************
** Twitter 2 ****
******************
quietly var LibRebTOLibGov LibGovTOLibReb USGovTOLibGov USGovTOLibReb Twitter2,lags(1/4)
irf create order1,step(4) set(myirf41) replace
irf table oirf, irf(order1) impulse(Twitter2) response(USGovTOLibGov USGovTOLibReb)
irf table oirf, irf(order1) impulse(Twitter2) response(USGovTOLibGov USGovTOLibReb) level(90)

*****************
** Twitter 3 ****
******************

quietly var LibRebTOLibGov LibGovTOLibReb USGovTOLibGov USGovTOLibReb Twitter3,lags(1/4)
irf create order1,step(4) set(myirf41) replace
irf table oirf, irf(order1) impulse(Twitter3) response(USGovTOLibGov USGovTOLibReb)
irf table oirf, irf(order1) impulse(Twitter3) response(USGovTOLibGov USGovTOLibReb) level(90)

irf create order1,step(7) set(myirf41) replace
irf table fevd, irf(order1) impulse(LibGovTOLibReb LibRebTOLibGov USGovTOLibGov Twitter3) response(USGovTOLibReb) level(95)

*****************
** Twitter 4 ****
******************
quietly var LibRebTOLibGov LibGovTOLibReb USGovTOLibGov USGovTOLibReb Twitter4,lags(1/4)
irf create order1,step(4) set(myirf41) replace
irf table oirf, irf(order1) impulse(Twitter4) response(USGovTOLibGov USGovTOLibReb)
irf table oirf, irf(order1) impulse(Twitter4) response(USGovTOLibGov USGovTOLibReb) level(90)

irf create order1,step(7) set(myirf41) replace
irf table fevd, irf(order1) impulse(LibGovTOLibReb LibRebTOLibGov USGovTOLibGov Twitter4) response(USGovTOLibReb) level(95)




